$INCLUDE: 'C:\FG\FASTGRAF.FI'

      PROGRAM MAIN

      INTEGER STATUS
      INTEGER FG_SHOWFLIC

      CALL FG_INITPM
      CALL FG_SETMODE(19)

      STATUS = FG_SHOWFLIC('GLASS.FLI'//CHAR(0),1,0)
      IF (STATUS .EQ. 0) CALL FG_WAITKEY

      CALL FG_SETMODE(3)
      CALL FG_RESET

      IF (STATUS .EQ. 1) THEN
         STOP 'GLASS.FLI not found.'
      ELSE IF (STATUS .EQ. 2) THEN
         STOP 'GLASS.FLI is not an FLI or FLC file.'
      ELSE
         STOP ' '
      ENDIF
      END
